﻿Public Class Pedido

    Private mstrNumero As String = String.Empty
    Private mstrValorFrete As String = String.Empty
    Private mstrSubTotal As String = String.Empty
    Private mstrTotal As String = String.Empty
    Private mobjCliente As Cliente
    Private mobjProdutos As List(Of Produtos)

    Public Sub New()
        mobjProdutos = New List(Of Produtos)()
        'mobjCliente = New List(Of Cliente)()
    End Sub

    Public Property Cliente As Cliente
        Get
            Return mobjCliente
        End Get
        Set(ByVal value As Cliente)
            mobjCliente = value
        End Set
    End Property

    Public Property Numero As String
        Get
            Return mstrNumero
        End Get
        Set(ByVal value As String)
            mstrNumero = value
        End Set
    End Property

    Public Property ValorFrete As String
        Get
            Return mstrValorFrete
        End Get
        Set(ByVal value As String)
            mstrValorFrete = value
        End Set
    End Property

    Public Property SubTotal As String
        Get
            Return mstrSubTotal
        End Get
        Set(ByVal value As String)
            mstrSubTotal = value
        End Set
    End Property

    Public Property Total As String
        Get
            Return mstrTotal
        End Get
        Set(ByVal value As String)
            mstrTotal = value
        End Set
    End Property

    Public Property Produtos As List(Of Produtos)
        Get
            Return mobjProdutos
        End Get
        Set(ByVal value As List(Of Produtos))
            mobjProdutos = value
        End Set
    End Property

End Class